Immoral Angel 1/Immoral Angel 1.iso/pc/program/actress.dxr/00040.ls

Text File | 1997-07-11 | 794 b | 30 lines

on checkname
  global personalnum
  set personalnum to 0
  set mh to mouseH() - 20
  set mv to mouseV() - 102
  set yoko to (mh / 68) + 1
  set tate to mv / 68
  set personalnum to yoko + (tate * 3)
  if (yoko < 1) or (yoko > 3) or (tate < 0) or (tate > 3) then
    exit
  end if
  rollovername(personalnum, yoko, tate)
end

on rollovername personalnum, yoko, tate
  if personalnum = 0 then
    exit
  end if
  puppetSprite(4, 1)
  set the type of sprite 4 to 1
  set the ink of sprite 4 to 0
  set the foreColor of sprite 4 to 255
  set the backColor of sprite 4 to 0
  set facephoto to "face" & personalnum
  set the castNum of sprite 4 to the number of member facephoto
  set the locH of sprite 4 to ((yoko - 1) * 68) + 19
  set the locV of sprite 4 to (tate * 68) + 101
  updateStage()
end